sub smssoundio(tvl as ubyte):
  out $7f,tvl
  end sub
